home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
toolbook
/
penbook.zip
/
PENBOOK.TBK
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1993-11-17
|
23KB
|
304 lines
mes New Roman
dle, lastObj
--every
Ithe cursor
moved, need
reset
--proper Pen Windows
curObject
objectFromPoint(
NULL)
F--OR (
" AND
FALSE
lastCur
SetCursor(
mouseEnter
setbeam
mouseLeave
setbeam
field
SetCursor
lastCur
curObject
BeamHandle
lastObj
mouseEnter
field
curObject
mouseLeave
System
Times New Roman
Times New Roman
Arial
Times New Roman
Arial
system
fic code
4BeamHandle
linkDLL "user"
WORD LoadCursor(
,DWORD)
SetCursor(
--load the "
n cursor," which tells Pen Windows
treat
--like a
w0,32513)
--translate message
mouse/
m movement
translatewindowmessage
sysClientHandle
setbeam
, lastObj
--every
moved, need
reset
--proper
curObject
objectFromPoint(
NULL)
F--OR (
" AND
FALSE
lastCur
enterbook
mouseEnter
setbeam
mouseLeave
enterbook
LoadCursor
SetCursor
LoadCursor
setbeam
BeamHandle
setbeam
field
SetCursor
lastCur
curObject
BeamHandle
lastObj
mouseEnter
field
curObject
mouseLeave
PenCommand
PEN COMMAND AREA by Paolo Tosolini, Italy
Draw the following circled letters inside the Pen Command Area to show :
You can play a video file, show an image or a hidden text, just using gestures.
Pen Windows is required. Make sure that in the Pen Palette's Gesture Manager, the following circled letters are assigned in this way:
square.
= Ctrl + 3
file just using gestures. Make sure that in the Gesture Manager of Pen Palette the following circled letters are assigned in this way:
try the or the gestures, writing them inside the white square.
Then, try to write the above gestures in this white field, sensitive to the pen.
Palette the following circled letters are assigned in this way:
try the or the gestures, writing them inside the white square.
= Ctrl + 1
file just using gestures. Make sure that in the Gesture Manager of Pen Palette the following circled letters are assigned in this way:
try the or the gestures, writing them inside the white square.
= Ctrl + 2
file just using gestures. Make sure that in the Gesture Manager of Pen Palette the following circled letters are assigned in this way:
try the or the gestures, writing them inside the white square.
txtScrolling
I'd like to hear from you any suggestion about using Toolbook and Pen Windows. Write the circled C to get my address.
ed letters are assigned in this way:
try the or the gestures, writing them inside the white square.
PenImage
:PHYSSIZE
Bkey, isShift, isCtrl
-- Script that intercept the translated gesture
HPen Windows
c"tbkmm.sbk")
"Sorry, but Multimedia Toolbook
xinstalled
4, " & \
"so I can
xplay
AVI file."
filmName
"PENVIDEO.
*" --
video
"PenCommand"
"Playing
$: " & CRLF & FilmName
tbkMCI("close
","")
tbkMCIchk("
" &&
6 && "alias aniFile style popup", "",1,1)
-- Place
ewhere we want
-- This function
included
1993 release
VideoWidgets
--
tbkMCIPositionWindow("
", "3880,3050" ,"")
","",1)
wait","",1)
","")
key =
ImageName
"PENIMAGE"
"Showing
: " &
Lhidden
:" &
"TXTSCROLLING"
Message
Paolo Tosolini - via Bembo, 5 - 34015 Muggia (TS) Italy
&& "tel. +39-40-275030
fax. +39-40-311850
email: tosolini@psicosun.univ.trieste.
120
"txtScrolling"
FirstLetter
Zi = 0
keyUpp
showFilm
:" &
","")
" &&
&& "
", "4000,3050" ,"")
","",1)
","")
keyUpp
keyup
showFilm
keyup
tbkmm.sbk
Sorry, but Multimedia Toolbook is not installed in this system,
so I can not play any AVI file.
PENVIDEO.AVI
PenCommand
Playing video:
FilmName
close all
tbkMCI
FilmName
alias aniFile style popup
tbkMCIchk
aniFile
3880,3050
tbkMCIPositionWindow
window aniFile state show
tbkMCIchk
play aniFile wait
tbkMCIchk
close aniFile
tbkMCI
PENIMAGE
PenCommand
Showing paintobject:
PenCommand
Showing hidden field:
TXTSCROLLING
>> Paolo Tosolini - via Bembo, 5 - 34015 Muggia (TS) Italy -
tel. +39-40-275030 fax. +39-40-311850 email: tosolini@psicosun.univ.trieste.it
txtScrolling
txtScrolling
txtScrolling
txtScrolling
txtScrolling
FirstLetter
Message
ImageName
filmName
isCtrl
isShift
keyUpp
showFilm
PenCommand
Playing video :
close all
tbkMCI
alias aniFile style popup
tbkMCIchk
aniFile
4000,3050
tbkMCIPositionWindow
window aniFile state show
tbkMCIchk
play aniFile wait
tbkMCIchk
close aniFile
tbkMCI
FilmName
-- PENBOOK.TBK
HPaolo Tosolini, Italy
-- email: tosolini@psicosun.univ.trieste.
-- Special thanks
Galaxi Scientific Corporation, USA
which
-- PENDEMO.
I got the idea
create
pen-specific code
4BeamHandle
linkDLL "user"
WORD LoadCursor(
,DWORD)
SetCursor(
--load
l cursor,"
tells Pen Windows
treat
--like a
r0,32513)
--translate message
mouse/
j movement
translatewindowmessage
sysClientHandle
setbeam
, lastObj
--every
moved, need
reset
--proper
curObject
objectFromPoint(
NULL)
F--OR (
" AND
FALSE
lastCur
-- Set
onlyu
Command
terbook
mouseEnter
mouseLeave
setbeam
author
enterbook
reader
enterbook
sizetopage
LoadCursor
SetCursor
LoadCursor
setbeam
BeamHandle
setbeam
field
SetCursor
lastCur
curObject
BeamHandle
lastObj
mouseEnter
field
curObject
mouseLeave
author
sizetopage
reader
sizetopage